home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / bbs / ta_birthday.lha / HappyBirthday.trans < prev   
Text File  |  1997-07-11  |  4KB  |  90 lines
  1. /* HappyBirthday gratuliert Usern die am Tag des Einloggens
  2. Geburtstag haben. Dieses Arexx-script sollte an den Anfang 
  3. von Logon.trans. Sollte Logon.trans noch nicht vorhanden sein,
  4. kann man es einfach in Logon.trans umbenennen.
  5. Den Text sollte man fuer sein BBS anpassen. Das Script
  6. funktioniert nur richtig, solange der User unter 100 Jahre
  7. alt ist. :-)
  8. Dies ist Version 1.0  (c) 7/97 Hartmut Meiering 
  9.                                Poststr. 79
  10.                                D-77836 Rheinmuenster
  11.                                Fidonet 2:2476/266
  12.                   BBS: AIRLine +49-7227-990764  (33600 BPS & ISDN)
  13.  
  14. To change to other languages you have to change the Lines 83, 84 and 86.  */
  15.                                
  16. options results
  17. systeminfo 'j' ; datum = result
  18. userinfo 'a' ; username = result
  19. userinfo 'x' ; ansi = result
  20. userinfo '5' ; birthday = result
  21. userinfo 'o' ; access = result
  22. vname = word(username,1)
  23. tag = word(birthday,1)
  24. monat = word(birthday,2)
  25. jahr = word(birthday,3)
  26. akttag = word(datum,1)
  27. aktmonat = word(datum,2)
  28. aktjahr = word(datum,3) 
  29. cls
  30. if ansi = 'ON' then do
  31.    ESC = '1B'X
  32.    ANSI_BRIGHT = ESC||'[1m'
  33.    NO_ANSI = ESC||'[0m'
  34.    BLACK = ESC||'[30m'
  35.    RED = ESC||'[31m'
  36.    GREEN = ESC||'[32m'
  37.    YELLOW = ESC||'[33m'
  38.    BLUE = ESC||'[34m'
  39.    VIOLET = ESC||'[35m'
  40.    CYAN = ESC||'[36m'
  41.    WHITE = ESC||'[37m'
  42. end
  43. else if ansi = 'OFF' then do
  44.    ANSI_BRIGHT = ''
  45.    NO_ANSI = ''
  46.    BLACK = ''
  47.    RED = ''
  48.    GREEN = ''
  49.    YELLOW = ''
  50.    BLUE = ''
  51.    VIOLET = ''
  52.    CYAN = ''
  53.    WHITE = ''
  54. end
  55.  
  56. If Access > 0 then do
  57.    If tag == akttag then do
  58.       if monat == aktmonat then do 
  59.          If aktjahr < jahr then do
  60.             aktjahr = aktjahr + 100
  61.          end
  62.          alter = aktjahr - jahr
  63.          transmit '' 
  64.          transmit ''
  65.          transmit '                                         '||ANSI_BRIGHT||YELLOW||'³'||NO_ANSI
  66.          transmit '                                       '||ANSI_BRIGHT||YELLOW||'Ä   Ä'||NO_ANSI
  67.          transmit '                                      '||ANSI_BRIGHT||YELLOW||'Ä  '||WHITE||'Û  '||YELLOW||'Ä'||NO_ANSI
  68.          transmit '                                     '||ANSI_BRIGHT||YELLOW||'Ä  '||WHITE||'ÞÛÝ  '||YELLOW||'Ä'||NO_ANSI
  69.          transmit '                                     '||ANSI_BRIGHT||YELLOW||'Ä  '||WHITE||'ÛÛÛ  '||YELLOW||'Ä'||NO_ANSI
  70.          transmit '                                     '||ANSI_BRIGHT||YELLOW||'Ä  '||WHITE||'ÛÛÛ  '||YELLOW||'Ä'||NO_ANSI
  71.          transmit '                                      '||ANSI_BRIGHT||YELLOW||'Ä '||WHITE||'ÞÛÝ '||YELLOW||'Ä'||NO_ANSI
  72.          transmit '                                        '||ANSI_BRIGHT||RED||'ÛÛÛ'||NO_ANSI
  73.          transmit '                                        '||ANSI_BRIGHT||RED||'ÛÛÛ'||NO_ANSI
  74.          transmit '                                        '||ANSI_BRIGHT||RED||'ÛÛÛ'||NO_ANSI
  75.          transmit '                                        '||ANSI_BRIGHT||RED||'ÛÛÛ'||NO_ANSI
  76.          transmit '                                        '||ANSI_BRIGHT||RED||'ÛÛÛ'||NO_ANSI
  77.          transmit '                      '||ANSI_BRIGHT||WHITE||'Û    Û   Û    Û   '||RED||'Û'||WHITE||'Û'||RED||'Û   '||WHITE||'Û   Û   Û    Û'||NO_ANSI
  78.          transmit '                      '||ANSI_BRIGHT||YELLOW||'ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ'||NO_ANSI
  79.          transmit '                      '||ANSI_BRIGHT||YELLOW||'ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ'||NO_ANSI
  80.          transmit '                      '||ANSI_BRIGHT||YELLOW||'ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ'||NO_ANSI
  81.          transmit '                      '||ANSI_BRIGHT||YELLOW||'ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ'||NO_ANSI
  82.          transmit '                '||ANSI_BRIGHT||CYAN||'ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß'||NO_ANSI
  83.          transmit ANSI_BRIGHT||YELLOW||'                    Das Team der AIRLine wuenscht dir '||vname||NO_ANSI
  84.          transmit ANSI_BRIGHT||CYAN||'                         alles Gute zum '||alter||'. Geburtstag.'||NO_ANSI
  85.          transmit ' '
  86.          Query ANSI_BRIGHT||WHITE||'Druecke '||YELLOW||'Return '||WHITE||'zum weitermachen.'||NO_ANSI
  87.       end
  88.    end
  89. end 
  90.